home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / DEP304.ZIP;1 / DEPARC.EXE / DSLFILES.EXE / REPLAY.DSL < prev    next >
Encoding:
Text File  |  1992-10-02  |  965 b   |  39 lines
  1. Script Replay;  (* Simple script to display a raw ANSI LOG
  2.                    For Deputy V.3.04 and later. V.1.00
  3.                    23/8/92  Author: Michael Spalter @ S/E/G  *)
  4.  
  5.                 (* Before logging, don't forget to enable
  6.                    RAW LOGGING on the Misc. setup menu  *)
  7.  
  8. PROCEDURE ShowIt(Filename : STRING);
  9. VAR
  10. Single : CHAR;
  11. Handle : INTEGER;
  12. Key : INTEGER;
  13. BEGIN
  14. WHILE KeyPressed DO Key:=RdKey; END;  (* Clear KeyBd Buffer *)
  15. Write('\r\nFilename: '+Filename+'  Length: ');
  16. Write(FSize(Filename));
  17. Write(' bytes. \n\r (Press Any key to stop playback)\r\n\n');
  18. Handle:=FOpen(Filename);
  19. REPEAT
  20. Single:=FRdChar(Handle);
  21. Write(Single);
  22. UNTIL (KeyPressed OR FEOF(Handle));
  23. FClose(Handle);
  24. END;
  25.  
  26. VAR 
  27. Fname : STRING[25];
  28.  
  29. BEGIN
  30. Escape(FALSE);
  31. SetEmulation(VT102);  (* Change this line as appropriate *)
  32. Write('\n\r\nEnter Filename: ');
  33. Read(Fname);
  34. ShowIt(Fname);
  35. Escape(TRUE);
  36.  
  37. END Replay.
  38.                    
  39.